<script>on mouseUpput ResolveAlias(cd fld "type", cd fld "name")end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text><span class="style2">LIASES, BY OLIVIER CINQUIN</span></text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text><span class="style3">his stacks contains two XFCNs:- </span><span class="style4">CreateAlias</span><span class="style3"> (FileType, ResourceType, ResourceName): brings up a standard AnswerFile dialog showing only files of type FileType, creates an alias to the file, and stores it into a resource of type ResourceType and name ResourceName. If such a resource already exists, whereever it is situated in open files, it is automatically deleted (if the user does not cancel). The XFCN returns Cancel if the user canceled, Error if an error occured, and the ID of the created resource if there's no problem.- </span><span class="style4">ResolveAlias</span><span class="style3"> (ResourceType, ResourceName): returns the long name of the file whose alias is stored in the resource of type ResourceType and of name ResourceName; if the file's name or location was changed, the alias record is automatically updated. If the alias cannot be resolved (ie it's been destroyed), "Cannot find alias" is returned.These two XFCNs use the Alias Manager: they have to be used with System 7, or they will crash. Files used have to have a long name shorter than 256 chars. ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------This program is shareware: you may (and I'd like you to do so!) distribute it to anyone, as long as you do so for free, but, if, after a trial period of 10 days, you decide to keep Aliases, you must register yourself by sending $20, in cash, at:Olivier Cinquin16, rue de Strasbourg38 000 GRENOBLEFRANCE.This way, I'll send you upgrades for free, and I'll send you info about my other products.You can include theses routines in any stack you want, but if you intend to sell these stacks or distribute them in shareware, </span><span class="style5">you must first contact me</span><span class="style3"> to obtain a license.Special thanks to John Kevin Calhoun for the help he gave me. If you have any comments or suggestions please send them to me at the above address or email me at " ocinquin@timb.imag.fr " on the Internet. I'd be very glad to read them!</span></text>